/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / BBS / MISC / WWIV_3.0-4 / cdet.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 63 64 65 74 2e 70 | 00 00 00 00 00 00 00 00 |..cdet.p|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 07 d7 00 | 00 02 00 9e be b1 e1 9e |........|........|
|00000060| be b1 e1 00 00 02 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 40 7b 00 00 |........|....@{..|
|00000080| 7b 24 52 2d 7d 0d 0d 28 | 2a 0d 09 63 64 65 74 28 |{$R-}..(|*..cdet(|
|00000090| 70 6f 72 74 20 6e 75 6d | 62 65 72 29 20 2d 2d 20 |port num|ber) -- |
|000000a0| 52 65 74 75 72 6e 20 22 | 74 72 75 65 22 20 69 66 |Return "|true" if|
|000000b0| 20 74 68 65 20 73 65 72 | 69 61 6c 20 70 6f 72 74 | the ser|ial port|
|000000c0| 20 68 61 73 20 63 61 72 | 72 69 65 72 3b 20 22 66 | has car|rier; "f|
|000000d0| 61 6c 73 65 22 20 6f 74 | 68 65 72 77 69 73 65 2e |alse" ot|herwise.|
|000000e0| 0d 09 42 79 20 54 65 72 | 72 79 20 54 65 61 67 75 |..By Ter|ry Teagu|
|000000f0| 65 2c 20 75 73 69 6e 67 | 20 72 6f 75 74 69 6e 65 |e, using| routine|
|00000100| 73 20 66 72 6f 6d 20 57 | 57 49 56 20 4d 61 63 20 |s from W|WIV Mac |
|00000110| 42 42 53 20 61 6e 64 20 | 48 79 70 65 72 54 65 72 |BBS and |HyperTer|
|00000120| 6d 69 6e 61 6c 20 58 43 | 4d 44 73 20 0d 09 62 79 |minal XC|MDs ..by|
|00000130| 20 48 61 72 72 79 20 43 | 68 65 73 6c 65 79 2e 20 | Harry C|hesley. |
|00000140| 20 44 4f 20 4e 4f 54 20 | 63 61 6c 6c 20 74 68 65 | DO NOT |call the|
|00000150| 20 61 75 74 68 6f 72 21 | 20 20 43 6f 6e 74 61 63 | author!|  Contac|
|00000160| 74 20 41 70 70 6c 65 20 | 44 65 76 65 6c 6f 70 65 |t Apple |Develope|
|00000170| 72 20 0d 09 53 75 70 70 | 6f 72 74 20 6f 6e 20 41 |r ..Supp|ort on A|
|00000180| 70 70 6c 65 4c 69 6e 6b | 20 22 4d 61 63 44 54 53 |ppleLink| "MacDTS|
|00000190| 22 20 6f 72 20 6f 6e 20 | 4d 43 49 20 22 4d 61 63 |" or on |MCI "Mac|
|000001a0| 54 65 63 68 22 2e 0d 0d | 09 a9 41 70 70 6c 65 20 |Tech"...|..Apple |
|000001b0| 43 6f 6d 70 75 74 65 72 | 2c 20 49 6e 63 2e 20 31 |Computer|, Inc. 1|
|000001c0| 39 38 37 0d 09 41 6c 6c | 20 52 69 67 68 74 73 20 |987..All| Rights |
|000001d0| 52 65 73 65 72 76 65 64 | 2e 0d 0d 09 54 6f 20 63 |Reserved|....To c|
|000001e0| 6f 6d 70 69 6c 65 20 61 | 6e 64 20 6c 69 6e 6b 20 |ompile a|nd link |
|000001f0| 74 68 69 73 20 66 69 6c | 65 20 75 73 69 6e 67 20 |this fil|e using |
|00000200| 4d 61 63 69 6e 74 6f 73 | 68 20 50 72 6f 67 72 61 |Macintos|h Progra|
|00000210| 6d 6d 65 72 27 73 20 57 | 6f 72 6b 73 68 6f 70 2c |mmer's W|orkshop,|
|00000220| 0d 0d 09 70 61 73 63 61 | 6c 20 2d 77 20 63 64 65 |...pasca|l -w cde|
|00000230| 74 2e 70 0d 09 6c 69 6e | 6b 20 2d 6d 20 45 4e 54 |t.p..lin|k -m ENT|
|00000240| 52 59 50 4f 49 4e 54 20 | 2d 6f 20 63 64 65 74 20 |RYPOINT |-o cdet |
|00000250| 2d 72 74 20 58 46 43 4e | 3d 32 30 20 2d 73 6e 20 |-rt XFCN|=20 -sn |
|00000260| 4d 61 69 6e 3d 63 64 65 | 74 20 63 64 65 74 2e 70 |Main=cde|t cdet.p|
|00000270| 2e 6f 20 22 7b 4d 50 57 | 7d 22 4c 69 62 72 61 72 |.o "{MPW|}"Librar|
|00000280| 69 65 73 3a 69 6e 74 65 | 72 66 61 63 65 2e 6f 0d |ies:inte|rface.o.|
|00000290| 09 0d 2a 29 0d 0d 7b 24 | 53 20 63 64 65 74 20 7d |..*)..{$|S cdet }|
|000002a0| 20 09 7b 20 53 65 67 6d | 65 6e 74 20 6e 61 6d 65 | .{ Segm|ent name|
|000002b0| 20 6d 75 73 74 20 62 65 | 20 74 68 65 20 73 61 6d | must be| the sam|
|000002c0| 65 20 61 73 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |e as the| command|
|000002d0| 20 6e 61 6d 65 2e 20 7d | 0d 0d 75 6e 69 74 20 44 | name. }|..unit D|
|000002e0| 75 6d 6d 79 55 6e 69 74 | 3b 0d 0d 69 6e 74 65 72 |ummyUnit|;..inter|
|000002f0| 66 61 63 65 0d 0d 75 73 | 65 73 20 4d 65 6d 54 79 |face..us|es MemTy|
|00000300| 70 65 73 2c 20 51 75 69 | 63 6b 44 72 61 77 2c 20 |pes, Qui|ckDraw, |
|00000310| 4f 53 49 6e 74 66 2c 20 | 48 79 70 65 72 58 43 6d |OSIntf, |HyperXCm|
|00000320| 64 3b 0d 0d 70 72 6f 63 | 65 64 75 72 65 20 45 6e |d;..proc|edure En|
|00000330| 74 72 79 50 6f 69 6e 74 | 28 70 61 72 61 6d 50 74 |tryPoint|(paramPt|
|00000340| 72 3a 20 58 43 6d 64 50 | 74 72 29 3b 0d 09 0d 69 |r: XCmdP|tr);...i|
|00000350| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 0d 0d 74 |mplement|ation..t|
|00000360| 79 70 65 0d 0d 53 74 72 | 33 31 20 3d 20 53 74 72 |ype..Str|31 = Str|
|00000370| 69 6e 67 5b 33 31 5d 3b | 0d 0d 70 72 6f 63 65 64 |ing[31];|..proced|
|00000380| 75 72 65 20 63 64 65 74 | 28 70 61 72 61 6d 50 74 |ure cdet|(paramPt|
|00000390| 72 3a 20 58 43 6d 64 50 | 74 72 29 3b 20 66 6f 72 |r: XCmdP|tr); for|
|000003a0| 77 61 72 64 3b 0d 0d 70 | 72 6f 63 65 64 75 72 65 |ward;..p|rocedure|
|000003b0| 20 45 6e 74 72 79 50 6f | 69 6e 74 28 70 61 72 61 | EntryPo|int(para|
|000003c0| 6d 50 74 72 3a 20 58 43 | 6d 64 50 74 72 29 3b 0d |mPtr: XC|mdPtr);.|
|000003d0| 0d 09 62 65 67 69 6e 0d | 09 09 63 64 65 74 28 70 |..begin.|..cdet(p|
|000003e0| 61 72 61 6d 50 74 72 29 | 3b 0d 09 65 6e 64 3b 0d |aramPtr)|;..end;.|
|000003f0| 0d 70 72 6f 63 65 64 75 | 72 65 20 63 64 65 74 28 |.procedu|re cdet(|
|00000400| 70 61 72 61 6d 50 74 72 | 3a 20 58 43 6d 64 50 74 |paramPtr|: XCmdPt|
|00000410| 72 29 3b 0d 0d 09 76 61 | 72 20 70 6f 72 74 4e 75 |r);...va|r portNu|
|00000420| 6d 62 65 72 3a 20 69 6e | 74 65 67 65 72 3b 0d 09 |mber: in|teger;..|
|00000430| 09 69 6e 50 6f 72 74 3a | 20 69 6e 74 65 67 65 72 |.inPort:| integer|
|00000440| 3b 0d 09 09 73 74 72 3a | 20 53 74 72 32 35 35 3b |;...str:| Str255;|
|00000450| 0d 09 09 63 61 72 72 69 | 65 72 20 3a 20 62 6f 6f |...carri|er : boo|
|00000460| 6c 65 61 6e 3b 0d 09 09 | 49 4f 45 72 72 6f 72 20 |lean;...|IOError |
|00000470| 3a 20 4f 53 45 72 72 3b | 0d 20 20 20 20 20 09 73 |: OSErr;|.     .s|
|00000480| 65 72 49 6e 66 6f 20 3a | 20 53 65 72 53 74 61 52 |erInfo :| SerStaR|
|00000490| 65 63 3b 0d 09 09 0d 09 | 7b 24 49 20 58 43 6d 64 |ec;.....|{$I XCmd|
|000004a0| 47 6c 75 65 2e 69 6e 63 | 7d 0d 0d 09 70 72 6f 63 |Glue.inc|}...proc|
|000004b0| 65 64 75 72 65 20 46 61 | 69 6c 28 65 72 72 4d 73 |edure Fa|il(errMs|
|000004c0| 67 3a 20 53 74 72 32 35 | 35 29 3b 20 7b 20 73 65 |g: Str25|5); { se|
|000004d0| 74 20 74 68 65 52 65 73 | 75 6c 74 20 61 6e 64 20 |t theRes|ult and |
|000004e0| 71 75 69 74 20 7d 0d 09 | 09 62 65 67 69 6e 0d 09 |quit }..|.begin..|
|000004f0| 09 09 70 61 72 61 6d 50 | 74 72 5e 2e 72 65 74 75 |..paramP|tr^.retu|
|00000500| 72 6e 56 61 6c 75 65 20 | 3a 3d 20 50 61 73 54 6f |rnValue |:= PasTo|
|00000510| 5a 65 72 6f 28 65 72 72 | 4d 73 67 29 3b 0d 09 09 |Zero(err|Msg);...|
|00000520| 09 65 78 69 74 28 63 64 | 65 74 29 3b 0d 09 09 65 |.exit(cd|et);...e|
|00000530| 6e 64 3b 0d 0d 09 62 65 | 67 69 6e 0d 09 09 69 66 |nd;...be|gin...if|
|00000540| 20 70 61 72 61 6d 50 74 | 72 5e 2e 70 61 72 61 6d | paramPt|r^.param|
|00000550| 43 6f 75 6e 74 20 3c 3e | 20 31 20 74 68 65 6e 20 |Count <>| 1 then |
|00000560| 46 61 69 6c 28 27 70 61 | 72 61 6d 65 74 65 72 20 |Fail('pa|rameter |
|00000570| 63 6f 75 6e 74 20 69 73 | 20 6e 6f 74 20 31 27 29 |count is| not 1')|
|00000580| 3b 0d 0d 09 09 5a 65 72 | 6f 54 6f 50 61 73 28 70 |;....Zer|oToPas(p|
|00000590| 61 72 61 6d 50 74 72 5e | 2e 70 61 72 61 6d 73 5b |aramPtr^|.params[|
|000005a0| 31 5d 5e 2c 73 74 72 29 | 3b 09 09 7b 20 46 69 72 |1]^,str)|;..{ Fir|
|000005b0| 73 74 20 70 61 72 61 6d | 65 74 65 72 20 69 73 20 |st param|eter is |
|000005c0| 70 6f 72 74 20 6e 75 6d | 62 65 72 2e 20 7d 0d 09 |port num|ber. }..|
|000005d0| 09 70 6f 72 74 4e 75 6d | 62 65 72 20 3a 3d 20 53 |.portNum|ber := S|
|000005e0| 74 72 54 6f 4e 75 6d 28 | 73 74 72 29 3b 0d 09 09 |trToNum(|str);...|
|000005f0| 69 66 20 28 70 6f 72 74 | 4e 75 6d 62 65 72 20 3c |if (port|Number <|
|00000600| 20 31 29 20 6f 72 20 28 | 70 6f 72 74 4e 75 6d 62 | 1) or (|portNumb|
|00000610| 65 72 20 3e 20 32 29 20 | 74 68 65 6e 20 46 61 69 |er > 2) |then Fai|
|00000620| 6c 28 27 69 6e 76 61 6c | 69 64 20 70 6f 72 74 20 |l('inval|id port |
|00000630| 6e 75 6d 62 65 72 27 29 | 3b 0d 0d 09 09 69 66 20 |number')|;....if |
|00000640| 70 6f 72 74 4e 75 6d 62 | 65 72 20 3d 20 31 20 74 |portNumb|er = 1 t|
|00000650| 68 65 6e 20 69 6e 50 6f | 72 74 20 3a 3d 20 2d 36 |hen inPo|rt := -6|
|00000660| 0d 09 09 65 6c 73 65 20 | 69 6e 50 6f 72 74 20 3a |...else |inPort :|
|00000670| 3d 20 2d 38 3b 0d 09 09 | 49 4f 45 72 72 6f 72 20 |= -8;...|IOError |
|00000680| 3a 3d 20 53 65 72 53 74 | 61 74 75 73 28 69 6e 50 |:= SerSt|atus(inP|
|00000690| 6f 72 74 2c 73 65 72 49 | 6e 66 6f 29 3b 0d 20 20 |ort,serI|nfo);.  |
|000006a0| 09 09 69 66 20 49 4f 45 | 72 72 6f 72 20 3d 20 6e |..if IOE|rror = n|
|000006b0| 6f 45 72 72 20 74 68 65 | 6e 0d 20 20 09 09 62 65 |oErr the|n.  ..be|
|000006c0| 67 69 6e 0d 20 20 20 20 | 20 09 09 69 66 20 73 65 |gin.    | ..if se|
|000006d0| 72 49 6e 66 6f 2e 63 74 | 73 48 6f 6c 64 20 3c 3e |rInfo.ct|sHold <>|
|000006e0| 20 30 20 74 68 65 6e 0d | 20 20 20 20 20 09 09 62 | 0 then.|     ..b|
|000006f0| 65 67 69 6e 20 7b 20 6e | 6f 20 63 61 72 72 69 65 |egin { n|o carrie|
|00000700| 72 20 7d 0d 20 20 20 20 | 20 20 20 20 09 09 63 61 |r }.    |    ..ca|
|00000710| 72 72 69 65 72 20 3a 3d | 20 66 61 6c 73 65 3b 0d |rrier :=| false;.|
|00000720| 20 20 20 20 20 09 09 65 | 6e 64 20 65 6c 73 65 0d |     ..e|nd else.|
|00000730| 0d 20 20 20 20 20 09 09 | 62 65 67 69 6e 0d 20 20 |.     ..|begin.  |
|00000740| 20 20 20 20 20 20 09 09 | 63 61 72 72 69 65 72 20 |      ..|carrier |
|00000750| 3a 3d 20 74 72 75 65 3b | 0d 20 20 20 20 20 09 09 |:= true;|.     ..|
|00000760| 65 6e 64 3b 0d 20 20 09 | 09 65 6e 64 20 65 6c 73 |end;.  .|.end els|
|00000770| 65 0d 0d 20 20 09 09 62 | 65 67 69 6e 0d 20 20 20 |e..  ..b|egin.   |
|00000780| 20 20 09 09 63 61 72 72 | 69 65 72 20 3a 3d 20 66 |  ..carr|ier := f|
|00000790| 61 6c 73 65 3b 0d 20 20 | 09 09 65 6e 64 3b 0d 09 |alse;.  |..end;..|
|000007a0| 0d 09 09 69 66 20 49 4f | 45 72 72 6f 72 20 3c 3e |...if IO|Error <>|
|000007b0| 20 6e 6f 45 72 72 20 74 | 68 65 6e 20 46 61 69 6c | noErr t|hen Fail|
|000007c0| 28 27 53 65 72 47 65 74 | 42 75 66 20 66 61 69 6c |('SerGet|Buf fail|
|000007d0| 65 64 27 29 3b 0d 09 09 | 69 66 20 6e 6f 74 20 63 |ed');...|if not c|
|000007e0| 61 72 72 69 65 72 20 74 | 68 65 6e 20 70 61 72 61 |arrier t|hen para|
|000007f0| 6d 50 74 72 5e 2e 72 65 | 74 75 72 6e 56 61 6c 75 |mPtr^.re|turnValu|
|00000800| 65 20 3a 3d 20 50 61 73 | 54 6f 5a 65 72 6f 28 27 |e := Pas|ToZero('|
|00000810| 66 61 6c 73 65 27 29 0d | 09 09 65 6c 73 65 20 70 |false').|..else p|
|00000820| 61 72 61 6d 50 74 72 5e | 2e 72 65 74 75 72 6e 56 |aramPtr^|.returnV|
|00000830| 61 6c 75 65 20 3a 3d 20 | 50 61 73 54 6f 5a 65 72 |alue := |PasToZer|
|00000840| 6f 28 27 74 72 75 65 27 | 29 3b 0d 09 65 6e 64 3b |o('true'|);..end;|
|00000850| 0d 0d 65 6e 64 2e 0d 00 | 00 00 00 00 00 00 00 00 |..end...|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 ae | 00 00 00 ae 00 00 00 52 |........|.......R|
|00000890| 3b 0d 09 20 57 48 49 4c | 45 20 63 6f 6d 6d 61 6e |;.. WHIL|E comman|
|000008a0| 64 50 74 72 5e 20 3c 3e | 20 30 20 44 4f 0d 09 20 |dPtr^ <>| 0 DO.. |
|000008b0| 06 63 64 65 74 2e 70 63 | 02 00 00 00 54 45 58 54 |.cdet.pc|....TEXT|
|000008c0| 4d 50 53 20 01 00 02 40 | 00 00 00 00 00 00 11 0f |MPS ...@|........|
|000008d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 02 40 00 00 |..TEXTMP|S ...@..|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 9b d8 9c 6f 00 00 | 07 d7 00 00 02 00 6e 75 |.....o..|......nu|
|00000900| 6d 62 65 72 20 2b 20 4f | 52 44 28 63 68 29 20 2d |mber + O|RD(ch) -|
|00000910| 20 4f 52 44 28 27 30 27 | 29 3b 0d 09 09 20 63 6f | ORD('0'|);... co|
|00000920| 6d 6d 61 6e 64 50 74 72 | 20 3a 3d 20 50 6f 69 6e |mmandPtr| := Poin|
|00000930| 74 65 72 28 4f 52 44 28 | 63 6f 6d 6d 61 6e 64 50 |ter(ORD(|commandP|
|00000940| 74 72 29 20 2b 20 31 29 | 3b 0d 09 20 20 20 45 4e |tr) + 1)|;..   EN|
|00000950| 44 3b 0d 09 20 49 46 20 | 6e 75 6d 62 65 72 20 3d |D;.. IF |number =|
|00000960| 20 30 20 54 48 45 4e 20 | 6e 75 6d 62 65 72 20 3a | 0 THEN |number :|
|00000970| 3d 20 31 3b 20 20 20 7b | 20 64 65 66 61 75 6c 74 |= 1;   {| default|
|00000980| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 09 54 6f |...H..Ge|neva..To|
|00000990| 20 63 6f 6d 70 69 6c 65 | 20 61 6e 64 20 6c 69 6e | compile| and lin|
|000009a0| 6b 20 74 68 69 73 00 03 | 00 04 00 28 00 28 01 c1 |k this..|...(.(..|
|000009b0| 02 57 00 28 00 28 01 c1 | 02 57 9e ab f1 22 00 00 |.W.(.(..|.W..."..|
|000009c0| 04 aa 00 00 04 aa 00 00 | 03 6a 01 00 00 00 00 3f |........|.j.....?|
|000009d0| 03 00 80 00 00 00 03 33 | 2e 30 34 33 2e 30 2c 20 |.......3|.043.0, |
|000009e0| a9 20 57 61 79 6e 65 20 | 42 65 6c 6c 2c 20 31 39 |. Wayne |Bell, 19|
|000009f0| 38 36 2c 20 4d 61 63 20 | 76 65 72 73 69 6f 6e 20 |86, Mac |version |
|00000a00| 62 79 20 54 65 72 72 79 | 20 54 65 61 67 75 65 00 |by Terry| Teague.|
|00000a10| 00 00 1b 03 00 80 00 00 | 00 03 33 2e 30 10 57 57 |........|..3.0.WW|
|00000a20| 49 56 20 4d 61 63 20 42 | 42 53 20 33 2e 30 00 00 |IV Mac B|BS 3.0..|
|00000a30| 01 00 00 00 01 ae 00 00 | 00 ae 00 00 00 52 00 02 |........|.....R..|
|00000a40| d6 58 06 fc 00 00 00 1c | 00 52 00 01 4d 50 53 52 |.X......|.R..MPSR|
|00000a50| 00 00 00 12 76 65 72 73 | 00 01 00 1e 03 ed ff ff |....vers|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 01 ff ff 00 00 00 4c |........|.......L|
|00000a70| 00 02 d6 98 00 02 ff ff | 00 00 00 8f 00 02 d6 9c |........|........|
+--------+-------------------------+-------------------------+--------+--------+